PROGRAM minmax;

  VAR 
    minimum, maximum, x, y: INTEGER;

BEGIN 
  WriteLn('value > ');
  ReadLn(x);
  WriteLn('value > ');
  ReadLn(y);
  IF x < y THEN BEGIN 
    minimum := x;
    maximum := y;
  END ELSE BEGIN 
    maximum := x;
    minimum := y;
  END;  (* if/else*)
  WriteLn('minimum: ', minimum, '  maximum: ', maximum);
  ReadLn();
END.